home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / BED / Rexx / SaveBlk.bed < prev    next >
Text File  |  1996-09-26  |  830b  |  54 lines
  1. /*
  2. ** $VER: SaveBlk.bed 1.0 (03.01.96)
  3. **
  4. ** Save the currently selected block to a file on disk.
  5. */
  6.  
  7. OPTIONS RESULTS
  8. OPTIONS FAILAT 21
  9. PARSE ARG name
  10.  
  11. GetBlkInfo
  12. PARSE VAR RESULT mode . sel_y sel_x
  13.  
  14. IF mode = "OFF" THEN DO
  15.     SetStatusBar "No block selected!"
  16. END; ELSE DO
  17.  
  18.     SetDisplayLock ON
  19.     SetInputLock ON
  20.  
  21.     IF name = "" THEN DO
  22.         GetFilePath PATH
  23.         RequestFile SAVEMODE 'TITLE "Save Selected Block"' RESULT
  24.         IF RC ~= 0 THEN EXIT
  25.         name = RESULT
  26.     END
  27.  
  28.     GetCursorPos
  29.     PARSE VAR RESULT y x .
  30.  
  31.     TaskID = Pragma('ID')
  32.  
  33.     SaveClip QUIET NOICON NOBACKUP 'T:OldClip' || TaskID
  34.  
  35.     CopyBlk
  36.     SaveClip name
  37.  
  38.     OpenClip 'T:OldClip' || TaskID
  39.  
  40.     Move sel_y sel_x
  41.     MarkBlk
  42.  
  43.     Move y x
  44.  
  45.     SetDisplayLock OFF
  46.     SetInputLock OFF
  47. END
  48.  
  49. IF ~Show(L,'rexxsupport.library') THEN DO
  50.     AddLib('rexxsupport.library',0,-30)
  51. END;
  52.  
  53. Delete("T:OldClip-" || TaskID)
  54.